﻿Public Class BESubcategoria

    Public Const ID_SUBCATEGORIA As String = "id_subcategoria"
    Public Const NOME_SUBCATEGORIA As String = "nome_subcategoria"
    Public Const VISIVEL_SUBCATEGORIA As String = "visivel_subcategoria"
    Public Const ID_CATEGORIA As String = "id_categoria"
    Public Const TOTAL_TOPICOS As String = "tot_topicos"
    Public Const TOTAL_POSTS As String = "tot_posts"

    Private _id As Integer
    Private _strNome As String
    Private _booVisivel As Boolean
    Private _idCategoria As Integer
    Private _totTopicos As Integer
    Private _totPosts As Integer
    Private _strVisibilidade As String

    Public Property Id() As Integer
        Get
            Return _id
        End Get
        Set(ByVal value As Integer)
            _id = value
        End Set
    End Property

    Public Property Nome() As String
        Get
            Return _strNome
        End Get
        Set(ByVal value As String)
            _strNome = value
        End Set
    End Property

    Public Property Visivel() As Boolean
        Get
            Return _booVisivel
        End Get
        Set(ByVal value As Boolean)
            _booVisivel = value
        End Set
    End Property

    Public Property IdCategoria() As Integer
        Get
            Return _idCategoria
        End Get
        Set(ByVal value As Integer)
            _idCategoria = value
        End Set
    End Property

    Public Property TotTopicos() As Integer
        Get
            Return _totTopicos
        End Get
        Set(ByVal value As Integer)
            _totTopicos = value
        End Set
    End Property

    Public Property TotPosts() As Integer
        Get
            Return _totPosts
        End Get
        Set(ByVal value As Integer)
            _totPosts = value
        End Set
    End Property

    Public Property StrVisibilidade() As String
        Get
            Return _strVisibilidade
        End Get
        Set(ByVal value As String)
            _strVisibilidade = value
        End Set
    End Property

End Class
